with Ada.Text_Io; use Ada.Text_Io;

procedure hello is
	task type Proces is
		entry Start(id: in Positive);
	end Proces;

	task body Proces is
		nr:Positive;
	begin
		Put_Line("Czekam");
		accept Start(id: in Positive) do
			nr:=id;
		end Start;
		Put_Line("Dostalem "&Positive'Image(nr));
	end Proces;

	p1:Proces;
	p2:Proces;
begin
	Put_Line("Hello");
	delay 1.0;
	p1.Start(1);
	p2.Start(2);
end hello;
